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Appendix A 


)0 SYSJ6402 

20 POKE52,OiPOKE53,64 

30 DIN DA(64),DN(64),DDl64),BB(64) 

40 POKE ) 6506,0 

50 DB-5*4096iD2-DB+256iR£M.DATA BUFFERSDSAVE'CID) " 

55 C)-256tC2-DB4-64iC3-256 2»C4-DB+)2BiC5-256 3 
60 C6-DB-H 92 IC7-D2+64 «C8-D2+) 28 «C9-D2+) 92 
]00 REH.. PARAMETERS 

1) 0 a;3)-64iREM..(( Or DETECTORS 
]20 A(7)H i REN, .# or DET CYCLES 
J30 INPOT"# Or CHOPS "fNC 

) 35 A(6)-INT(NC/256) iA(5)-NC-256*A(6) 

J40 A (4) “2 i REM, .A/D DELAY 

]50 A(3)-0lA(2)-J «REM. . CHOPPER DELAY 

]60 A( ) ) "250 r REM. , # Or CHOPS BEFORE DATA BAD SUBSCRIPT 
200 PRINT"*" 

205 FORD- ) TO) OOi NEXT 

2 ] 0 PRINT'S COMMAND IRASLDBPC" 

2)5 GET CMSiXF CM5-"“THENFORJ")TO)OOiNEXTJjPRINT"SR COMHANDr"«GOSUB)OOOiGOT0205 
2J 7 IT CM? ""TKENPRINT' SQQQL AST COMMAND WAS R"CM?"r" i PRINT'S" 

220 irCM?-"I"THENCM$-"S"«GOSUB400«CM?-"" “ “ 

240 ir CM?-"R" THEN GOSUB 500 
245 IFCM$-"D"TKENCOSUB6000 
250 ir CM?-"A"THEN GOSUB 500 
255 IFCM?-"C"THENGOSUBSOOO 
260 IFCM$-"L"THENGOSUB4000 
265 IPCM?-"P"THENGOSUB7000 
270 IFCM$-"S"THENGOSUB300Q 
275 IFCM$»"B"THENGOSUBSOOO 
290 GOTO 2)0 
400 r0RJ-]T08 
4)0 POKE)6384+J,A(J) 

4) 5 NEXT J 
420 SYS) 64 )5 
430 GOSUB 700 

500 POKE)6394,RSCtCM?)+32 

5) 0 SYSJ6555 
520 GOSUB 700 
550 RETURN 

700 ER-PE2K( 16384) 

705 RETURN 

710 IF ER-99 THEN PRINT"CHECKSUM ERROR" 

720 IF ER-)0l THEN PRINT"ACIA ERROR" 

725 A?-" " 

790 RETURN i REM. .SYS 16587 (REM. .CHECK ACIA 
1000 REM. .CHECK ACIA 
]004 SYS) 6 587 

1005 TE-PEEK( 16586) iIFTE-OTHEN RETURN 
)006 P-?XE) 6586,0 

1007 I? TE-32THENCN-0 |PRINT" SPPQ) )))))))))))))))))) " I * “iRETURN 

1008 CN-CN+) 

1009 PRINT" SQgg) ))))))))))))))))))) "! CN 
] 0] 0 GOSUB 700 

10)7 MA-0 

1020 FOR J"OTOA<8) -) 

1030 DA(J)-PEEK(DB+J)tC)*PEEK(C2+J)+C3*PEE)C(C4+J)+C5"PEEK(C6+J) 

1040 DNfJ>-PEEK<D2+J)+Cl*PEEK(C7+J)+C3*,' : 'EEK(C8+J)+C5»PEEK(C9+J) 
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]050 r*Q(J)"DA(J)-DN(J) 

205) DD(0) -. J :DD( ) ) ". ) IDD (62) "• ) sDD(63) ". ) 

]0 52 IF ABS (DD( J) ) ABS(MA) THEM MA-ABS (DD( J) ) 

)055 NEXT J 
joGO GOSUB 2000 
j090 RETURN 

2000 PRINT" SQQQ" :REM...PLOT ON SCREEN 

2002 IFMA-0THENMA-10 

2003 F0RJ-4T023:PRINT" ' "iNEXTJ 

2004 PRINT" S"i 

2005 SC-20/MA«SO-33728:LL-40 
20)0 FOR J-0TO62 STEP 2 
20)5 IJ-INT { J/2) 

2020 P]-INT(DD(J)*SC)+20lP2-INT(DD<J+))*SC)+20«l]-INT(P)/t) : I2-INT (P2/2) 
2025 IFI) 0THENI)-0:IFI2 0THENI2-0 
2030 IF I1-I2 GOTO 2)00 

2040 IT I) P)/2 THEN POKE S0+K-I] *LL, ) 26 jGOTO 2060 
2050 POKE S0+IJ-I) *LL, ]23 

2060 IF 12 P2/2 THEN POKE S0+IJ-I2»LL, ) 24 jGOTO 2)00 
2070 POKE S0+IJ-I2*ELi ] 08 
2090 GOTO 2300 

2)00 IFP) -P2 ANDI ] -P) /27HENPOKE SO+IJ-t] *LL,98 :GOT02300 
2)]0 IFpj-P2ANDI) P) /2THENPOKE SO+IJ-I) »LL,226|GOT02300 
2)20 IF P) P2 THEN POKE SO+IJ-I) *LL, 255 IGOTO2300 
2)30 POKE SO+IJ-I) *LL, ] 27 
2300 NEXT J 

2302 PRINT" SO) ))))))))))))))))))))))))) "»" "» 

2303 IFTS-] OOTHENPRINT’ SQQO" ; "INTEGRATION OVER **»** )> ) V *")M) > ) "CPS" 
2305 PRINT" SO) )))))))))))))))))))))))" I "MAX" ;MA 

2310 RETURN 

3000 REM.. SAVE DATA 

3003 PRINT" S" I " " 

3005 PRINT: INPUT" FILE NAME" »FL$ 

3020 DOPEN#8, (FL$) ,W:IF DS 0 THEN9)00 
3030 F0RJ-20480TO20992 
3.040 A5-STRS (PEEK( J) ) 

3050 PRINT#8,ASjCHRS()3) mIFDS J9THEN9JOO 

3060 NEXTJ 

3070 DCL0SE#8 

3080 G0T02 JO 

4000 REM LOAD DATA 

4002 GOSUB4005 

4003 GOTO] 0)7 

4005 PRINT'S":" * 

40)0 PRINT: INPUT" FILE NAME" >FL$ :IF FL$-*S"THEN8500 

40)5 IFFLS-"E*THEN8320 

4030 DOPEN#8, (FLS) i IF DS 0 THEN 9000 

4040 FORJ-2O480TO2O992 

4045 INPUT#8,A$:IFDS J9THEN9000 

4060 POKEJ, VAL(A$) 

4070 NEXTJ 
4080 DCLOSE#8 
4090 RETURN 
5000 REM SET BB 

50)0 FORJ-OTOA(8) - J :BB(J)-DD(J) :NEXTJ 
5020 RETURN 

6000 FORJ-OTOA ( 8 ) - ] :IFB3 (J) -OTHENBB (J) -) 00000 
600) NEXT J 

6005 F0RJ-27TO52 : DD ( J) »DD< J) "C2/BB ( J) 

60)0 IFMA DD(J)THENMA“DD(J) 

6020 NEXTJ 

6023 F0RJ-0T026 :DD(J) -. ) :NEXT 
6025 FOR J-53T0A18)-) :DD(J)».) :NEXT 
6030 GOTD2000 
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7000 IFMA-OTHENRETURN 
70J0 OFEN4 f 4»CMD4 
70) S A5-" 

7020 PRINTFL5 

7025 PRINT"CH# VALUE ) 00 ) 

7040 FORJ-OTO A(8)-) «SC-40/MA|LL-DD(J) »SC+80 iLL-INT(LL) 

7045 PRINTJ , DD( J) »CHR5 0 4] ) | LETT? (A?, LL/2) » 

7040 XFLL/2-INT(LL)THENPRINT"5" 

7050 PRINT"6" 

7055 NEXTJ 

7060 CLOSE4 

7070 RETURN 

6000 RE1. COADD SCANS 

8005 FORJ-OTOA(S) -) »DD< J) -0 tDA( J) -0 |DN(J) -0 l NEXTJ lKA-0«ER-0 
60)0 GOSUB4O05 

8020 PRINT'S +,-,E,S,D..7 * 

8022 FORJ-JT0500 INEXTJ 
8024 PRINT'S +,-,E,S,D.. ■ 

8026 GETCM$riFCM5-""TiCENFORJ-)T0500iNEXTJlGOT08020 
8040 IFCM$-"+"THENPRINT" g) )))))))))))))) ) +"|GOTOBJOQ 
8050 irCMS-"-"THENPRlNT" q )))))))))))))))) -"|GOT08200 
8060 IFCM$-"E"THENB300 

8070 irCMS-"S"THENPRINT ll q) ))))))))))))))) S" IGOTOB500 

8080 IFCM$-"D"THEN8600 

8090 GOTO8026 

8)00 HA“0 i FORJ“OTOA (8) -) 

8)05 DA(J)-DA(J)+PEEK(DB+J)+C)*PEEK(C2+J)+C3*PEEK(C4+J)+C5*PEEK(C6+J) 
8) )0 DN(J) -DN(J) +PEEK(D2+J) +C) »PEEK(C7+J) -H:3*PEEK(C8+J) +C5»PEEK(C9+J) 
e)20 DD(J)-DA(J)-DN(J> 

8)30 IFABS (DDJ (J) ) ABS (MA) THENMA-ABS (DD(J) ) 

8)40 NEXTJ 
8)50 COSUB2000 
8)55 ER-ER+) 

8)60 GOTO80J 0 

8200 KA-OiFORJ-OTOA(8)-) 

8205 DN (J) -DN (J) +PEEK(DB+J) +CJ *PEEK(C2+J) +C3 "PEEK ( C4+J) +C5 ‘PEEK (C6+J) 

82) 0 DA(J)-&A(J)+PEEK(D2+J)+C]*PEEK<C7+J)+C3»PEEK{C8+J)-K:5*?EEK(C9+J) 
8220 DD(J)-DA(J)-DN(J) 

8230 IFiiBS (DDJ (J) ) ABS (MA) THENMA-ABS (DD(J) ) 

8240 NEXTJ 
8250 GOSUB2000 
8255 ER-ER+1 
8260 GOTOSOIO 

8300 IFER/2-INT(ER/2) TKEN2] 0 

83) 0 PRINT" SNOT EVEN # SCANS" «FORJ-)TO)000iNEXTJiGOTO80)0 

8320 PRINT"SSAVE SUM BUFFER ? Y/N " 

8330 GETCM?” 

8340 IFCM$-"V*THEN8500 

8350 IFCM$-"N"THEN2)5 

8360 GOTO8330 

8400 G0T02J5 

8500 PORJ-OTOA (8) -J 

85)0 P)-INT(DA(>7)/C5) tPOKE(C6+J) ,P) 

85) 5 P2-INT( (DA( J) -P) *C5) /C3) :POKE(C4+J) ,P2 
8520 I)-INT((DA(J)-P)*C5-P2»C3)/C)) iPOKE(C2+J),I) 

8530 I2-INT( (DA(J) -P) *C5-P2»C3-I) *C)) ) «POKEDB+J,I2 
8540 P]-INT(DN(J) /C5) iPOKE(C9+J> ,P) 

8545 P2-INT((DN(J)-P).»C5)/C3) «POKE(C8+J) ,P2 
8550 I)-INT((DN(J)-P]*C5-P2"C3)/C)) :POKE(C7+J) ,1] 

8560 I2-INT( (DN (J) -P) *C5-P2»C3-I) *C) ) ) : POKED2+J # I2 
8570 NEXTJ 
8500 GOT03QOO 
oAnn nTOPrrnevnn 




* 


8 
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. 86)0 PRINT” ANY KEY TO RETURN" 
8620 GETCM$iirCM5"""THEN8620 
8630 COTO8024 
9000 REN DISK INPUT ERR.. 

90)0 PRINT'S" ;DS$ 

9020 DCLOSeTTsi GOTO40)0 
9)00 REMDISK OVERFLOWPUT ERROR 
9))0 PRINT"S" ;DSS 
9)20 FORJ-)TO2000lNEXTJ 
9)30 DOLOSE# 8 |G0T03 000 
READY. 
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